home *** CD-ROM | disk | FTP | other *** search
/ 130 MIDI Tool Box / 130 MIDI Tool Box.iso / mpu401 / mpu401.pcf < prev    next >
Text File  |  1986-06-24  |  16KB  |  610 lines
  1. ( 
  2. *************************************************************************
  3. *                   MPU401.PCF                *
  4. *                                    *
  5. *    MIDI Record/Playback using Roland MPU401 MIDI Interface     *
  6. *                                    *
  7. *           Copyright Donald Swearingen, January 1985        *
  8. *         For private, non-commercial use only.            *
  9. *************************************************************************
  10.  
  11. Note: The following program segments are written in Laboratory Microsystems 
  12. PC/FORTH for the IBM PC. They were prepared using a standard text editor
  13. and compiled into the FORTH dictionary using the command:
  14.  
  15.             INCLUDE MPU401.PCF
  16. )
  17.  
  18. FORTH DEFINITIONS HEX
  19.  
  20. (
  21. ********************
  22. * Data Definitions *
  23. ********************
  24. )
  25. 0330    CONSTANT    MPU_DATA    ( IO Port Addresses for MPU_401)
  26. 0331    CONSTANT    MPU_STAT
  27. 0331    CONSTANT    MPU_CMND
  28.  
  29. 0010    CONSTANT    PGPH_SIZE    ( 8086 paragraph size )
  30. 1000    CONSTANT    T_SIZE        ( "Track" data buffer size )
  31.  
  32. 0008    CONSTANT    N_TK        ( Number of tracks )
  33.  
  34. CREATE    T_SEG        N_TK 2* ALLOT    ( segment pointers for track data )
  35. CREATE    T_RPTR        N_TK 2* ALLOT    ( Record data pointers )
  36. CREATE    T_PPTR        N_TK 2* ALLOT    ( Play data pointers )
  37. CREATE    T_RST        N_TK 2* ALLOT    ( Record/play running status )
  38. CREATE    T_NDAT        N_TK 2* ALLOT    ( # data bytes for current status )
  39.  
  40. VARIABLE        ACK_RCVD    ( Set to 1 when command ACK received )
  41. 2VARIABLE        PREV_IRQ2    ( original IRQ2 vector contents )
  42. VARIABLE        REC_TRK     ( Current record track 0-7 )
  43. VARIABLE        MPU_VEC     ( Current MPU character handler )
  44. VARIABLE        MPU_VEC_RST    ( Initial MPU character handler )
  45.  
  46. (
  47. ******************************
  48. * Auxiliary PC-DOS functions *
  49. ******************************
  50. )
  51.  
  52. ( free up memory paragraphs not used by FORTH
  53.   note: FORTH uses CS:0000 thru SS:FFFF 
  54. )
  55. CODE    FREE_MEM            ( --- n_avail )
  56.     ES        PUSH        ( Preserve registers )
  57.     CS        PUSH
  58.     AX        POP
  59.     ES, AX        MOV
  60.     BX, # FFFF    MOV        ( Request maximum )
  61.     AH, # 4A    MOV        ( SETBLOCK function )
  62.     21        INT        ( Get max. avail. in BX )
  63.     10$        JNC        ( Got all FFFF pgphs )
  64.     AX, # 8     CMP        ( Insufficient memory error?)
  65.     5$        JE        ( Yes, proceed )
  66.     BX, # 0     MOV        ( No pgphs available )
  67.     10$        JMP
  68. 5$:    SS        PUSH
  69.     CX        POP
  70.     CX, # 1000    ADD        ( CX = SS:FFFF+1 )
  71.     CS        PUSH
  72.     AX        POP        ( AX = CS:0000 )
  73.     ES, AX        MOV
  74.     CX, AX        SUB        ( CX = # pgphs used by FORTH )
  75.     BX, CX        SUB        ( BX = # pgphs not used by FORTH )
  76.     AH, # 4A    MOV        ( SETBLOCK function )
  77.     21        INT
  78.     10$        JNC
  79.     BX, # 0     MOV        ( error...return 0 )
  80. 10$:    ES        POP        ( restore register )
  81.     BX        PUSH        ( return # free pgphs )
  82.     NEXT,
  83. END-CODE
  84.  
  85. ( get memory paragraphs 
  86. ) 
  87. CODE    GET_MEM             ( n_req --- seg n_alloc error_code )
  88.     BX        POP        ( # paragraphs requested )
  89.     AH, # 48    MOV        ( allocate memory function )
  90.     21        INT        ( DOS function interrupt ) 
  91.     10$        JC        ( Error return )
  92.     AX        PUSH        ( segment allocated )
  93.     BX        PUSH        ( # paragraphs allocated )
  94.     AX, # 0     MOV
  95.     AX        PUSH        ( no error )
  96.     NEXT,
  97. 10$:    CX, # 0     MOV
  98.     CX        PUSH        ( dummy segment )
  99.     BX        PUSH        ( # paragraphs actually available )
  100.     AX        PUSH        ( DOS error code )
  101.     NEXT,
  102. END-CODE
  103. (
  104. ********************
  105. * Output to MPU401 *
  106. ********************
  107. )
  108.  
  109. ( Wait until MPU401 is ready to receive data 
  110. )
  111. : MPU_TX_WAIT                ( --- )
  112.   BEGIN MPU_STAT PC@ 40 AND NOT UNTIL
  113. ;
  114. ( CALLable code version 
  115. )
  116. CODE    S_MPU_TX_WAIT 
  117.     DX, # MPU_STAT    MOV        ( MPU status port )
  118. 1$:    AL, DX        IN        ( read status )
  119.     AL, # 40    AND        ( wait for bit 6 = 0 )
  120.     1$        JNZ
  121.     RET
  122. END-CODE
  123.  
  124. ( Send command to MPU401
  125. )
  126. : !MPU_CMND                ( cmnd --- )
  127.   0 ACK_RCVD !                ( reset MPU ack flag ) 
  128.   MPU_TX_WAIT MPU_CMND PC!        ( send character )
  129.   BEGIN ACK_RCVD @ UNTIL        ( wait for ACK )
  130. ;
  131. ( Send command in AL to MPU401. CALLable code version. 
  132. )
  133. CODE    S_!MPU_CMND 
  134.     AX PUSH             ( save command )
  135.     ' S_MPU_TX_WAIT >BODY CALL      ( wait for tx ready )
  136.     AX, AX        XOR        ( AX = 0)
  137.     ACK_RCVD , AX    MOV        ( reset MPU ack flag )
  138.     DX, # MPU_CMND    MOV        ( MPU command port )
  139.     AX        POP        ( Retrieve command )
  140.     DX, AL        OUT        ( Send command )
  141. 1$:    AX, ACK_RCVD    MOV        ( Wait for command ACK )
  142.     AX, # FFFF    AND
  143.     1$        JZ    
  144.     RET
  145. END-CODE
  146.  
  147. ( Send data byte to MPU401 
  148. )
  149. : !MPU_DATA                ( data --- )
  150.   MPU_TX_WAIT MPU_DATA PC!  
  151. ;
  152. ( Send data byte in AL to MPU401. CALLable code version. 
  153. )
  154. CODE    S_!MPU_DATA            
  155.     AX        PUSH        ( save character ) 
  156.     ' S_MPU_TX_WAIT >BODY CALL      ( Wait for tx ready)
  157.     DX, # MPU_DATA    MOV        ( MPU Data port )
  158.     AX        POP        ( Retrieve data )
  159.     DX, AL        OUT        ( Send data )
  160.     RET
  161. END-CODE
  162.  
  163. (
  164. **************************
  165. * IRQ2 interrupt handler *
  166. **************************
  167. (
  168.  
  169. ( Begin interrupt: save registers and link to current character
  170.   handling vector 
  171. )
  172. CODE    IRQ2_INT    
  173.     STI                ( enable interrupts )
  174.     AX        PUSH        ( save environment )
  175.     BX        PUSH 
  176.     CX        PUSH
  177.     DX        PUSH 
  178.     DS        PUSH 
  179.     ES        PUSH
  180.     SI        PUSH
  181.     AX, CS        MOV        ( establish data accessibility )  
  182.     DS, AX        MOV  
  183.     DX, # MPU_DATA    MOV        ( read serial port)
  184.     AL, DX        IN
  185.     BX, MPU_VEC MOV
  186.     BX        JMP        ( jump to character handler )
  187. END-CODE
  188.  
  189. ( Signal end of interrupt and return from interrupt 
  190. )
  191. CODE    IRQ2_INT_END 
  192.     AL, # 20    MOV        ( send EOI to 8259 )
  193.     # 20 , AL    OUT
  194.     SI        POP        ( restore environment ) 
  195.     ES        POP  
  196.     DS        POP  
  197.     DX        POP 
  198.     CX        POP  
  199.     BX        POP  
  200.     AX        POP
  201.     IRET              
  202. END-CODE
  203.  
  204. (
  205. *****************************
  206. * Record/Playback functions *
  207. *****************************
  208. )
  209.  
  210. ( Determine the number of data bytes associated with the MIDI
  211.   status byte in CL and store for the currently active record 
  212.   or playback track [SI]. Input CL destroyed.
  213. )
  214. CODE    SET_T_NDAT
  215.     CL, # C0    CMP
  216.     1$        JB
  217.     CL, # DF    CMP
  218.     1$        JA
  219.     CX, # 1     MOV
  220.     T_NDAT [SI], CX MOV
  221.     RET
  222. 1$:    CX, # 2     MOV
  223.     T_NDAT [SI], CX MOV
  224.     RET
  225. END-CODE
  226.  
  227. ( place character in record buffer of current track
  228. )
  229. CODE    MPU_RECD_PUT 
  230.     CLI                ( clear interrupts for)
  231.                     ( pointer manipulation)
  232.     BX, T_SEG [SI]    MOV        ( get trk seg in ES )
  233.     ES, BX        MOV
  234.     BX, T_RPTR [SI] MOV        ( track record pointer )
  235.     BX, # T_SIZE    CMP        ( buffer full? )
  236.     1$        JB
  237.     STI                ( Yes...don't store )
  238.     RET
  239. 1$:    ES: [BX], AL    MOV        ( place char. in track buffer )
  240.     BX        INC        ( bump record pointer)
  241. 15$:    T_RPTR [SI], BX MOV        ( store updated ptr )
  242.     STI                ( enable interrupts)
  243.     RET
  244. END-CODE
  245.  
  246. ( record data bytes of current MIDI message
  247. )
  248. CODE    MPU_RECD_3
  249.     SI, REC_TRK    MOV        ( Get record trk in SI )
  250.     SI, # 1     SHL        ( Convert to word offset )
  251.     ' MPU_RECD_PUT >BODY CALL       ( store value )
  252.     T_NDAT [SI]    DEC
  253.     10$        JNZ
  254.     BX, MPU_VEC_RST MOV
  255.     MPU_VEC , BX    MOV        ( reset char vector )
  256. 10$:    ' IRQ2_INT_END >BODY JMP        ( leave )
  257. END-CODE
  258.  
  259. ( process second byte of current track event
  260. ) 
  261. CODE    MPU_RECD_2
  262.     SI, REC_TRK    MOV        ( Get record trk in SI )
  263.     SI, # 1     SHL        ( Convert to word offset )
  264.     AL, # F8    CMP        ( check for MPU marks )
  265.     3$        JE
  266.     AL, # F9    CMP
  267.     3$        JE
  268.     AL, # FC    CMP
  269.     5$        JNE
  270. 3$:    ' MPU_RECD_PUT >BODY CALL       ( store mark )
  271.     BX, MPU_VEC_RST MOV
  272.     MPU_VEC , BX    MOV        ( reset char vector )
  273.     ' IRQ2_INT_END >BODY JMP
  274. 5$:    BX, # ' MPU_RECD_3 >BODY MOV    ( set char vec for MIDI data bytes )
  275.     MPU_VEC , BX    MOV
  276.     CL, T_RST [SI]    MOV
  277.     ' SET_T_NDAT >BODY CALL         ( compute # data bytes for status )
  278.     AL, # 80    CMP        ( new status?)
  279.     8$        JAE
  280.     ' MPU_RECD_3 >BODY JMP
  281. 8$:    T_RST [SI], AL    MOV        ( remember new running status)
  282.     ' MPU_RECD_PUT >BODY CALL       ( store value in track buffer )
  283.     CX, AX        MOV
  284.     ' SET_T_NDAT >BODY CALL         ( compute # data bytes for status )
  285.     ' IRQ2_INT_END >BODY JMP
  286. END-CODE
  287.  
  288. ( record timing value for current track event
  289. )
  290. CODE    MPU_RECD    
  291.     SI, REC_TRK    MOV        ( Get record trk in SI )
  292.     SI, # 1     SHL        ( Convert to word offset )
  293.     ' MPU_RECD_PUT >BODY CALL       ( Store timing value )
  294.     AL, # F8    CMP        ( timing overflow? )
  295.     1$        JE        ( Yes...one byte event )
  296.     BX, # ' MPU_RECD_2 >BODY MOV
  297.     MPU_VEC , BX    MOV        ( set char. vector for second byte )
  298. 1$:    ' IRQ2_INT_END >BODY JMP
  299. END-CODE
  300.  
  301. ( handle play request 
  302. )
  303. CODE    MPU_PLAY
  304.     AX, # 07    AND        ( ensure trk 0-7)
  305.     AX, # 1     SHL        ( cnvt to word offset )
  306.     SI, AX        MOV
  307.     BX, T_PPTR [SI] MOV
  308.     CX, T_RPTR [SI] MOV
  309.     BX, CX        CMP        ( Anything left ?)
  310.     1$        JB        ( Yes...send next event )
  311.     AL, # 0     MOV        ( No...send data end FC )
  312.     ' S_!MPU_DATA >BODY CALL
  313.     AL, # FC    MOV
  314.     ' S_!MPU_DATA >BODY CALL
  315.     10$        JMP
  316. 1$:    AX, T_SEG [SI]    MOV        ( Get trk seg in ES )
  317.     ES, AX        MOV
  318.     ES: AL, [BX]    MOV        ( Get timing value )
  319.     ' S_!MPU_DATA >BODY CALL        ( send timing value )
  320.     BX        INC
  321.     AL, # F8    CMP        ( Timing value = 240? )
  322.     10$        JE        ( Yes, EXIT )
  323.     ES: AL, [BX]    MOV        ( Check next character )
  324.     AL, # F8    CMP        ( MPU mark?)
  325.     3$        JE
  326.     AL, # F9    CMP
  327.     3$        JE
  328.     AL, # FC    CMP
  329.     5$        JNE        ( Not mark )
  330. 3$:    BX        INC        ( "read" mark )
  331.     ' S_!MPU_DATA >BODY CALL        ( send mark )
  332.     10$        JMP        ( EXIT )
  333. 5$:    AL, # 80    CMP        ( New status? )
  334.     7$        JB
  335.     T_RST [SI], AL    MOV        ( Reset running status )
  336.     BX        INC        ( "read" status )
  337.     ' S_!MPU_DATA >BODY CALL        ( send status )
  338. 7$:    CL, T_RST [SI]    MOV
  339.     ' SET_T_NDAT >BODY CALL
  340. 9$:    ES: AL, [BX]    MOV        ( Read next data byte )
  341.     BX        INC
  342.     ' S_!MPU_DATA >BODY CALL        ( send data byte )
  343.     T_NDAT [SI]    DEC
  344.     9$        JNZ
  345. 10$:    T_PPTR [SI], BX MOV        ( Reset play pointer )
  346.     ' IRQ2_INT_END >BODY JMP
  347. END-CODE
  348.  
  349. (
  350. *************************
  351. * Interpret MPU message *
  352. *************************
  353. )
  354.  
  355. ( Begin processing a new MPU message
  356. )
  357. CODE    MPU_MSG
  358.     AL, # FE    CMP        ( command ack? )
  359.     1$        JNE
  360.     ACK_RCVD , AX    MOV        ( Yes, signal ack received )
  361.     ' IRQ2_INT_END >BODY JMP        ( leave )
  362. 1$:    AL, # EF    CMP        ( timing value? )
  363.     4$        JA
  364.     ' MPU_RECD >BODY JMP            ( Yes, record data )
  365. 4$:    AL, # F8    CMP        ( timing overflow? )
  366.     7$        JNE
  367.     ' MPU_RECD >BODY JMP            ( Yes, record data )    
  368. 7$:    AL, # F7    CMP        ( Play request? )
  369.     10$        JA
  370.     ' MPU_PLAY >BODY JMP            ( Yes, play data )
  371. 10$:    ' IRQ2_INT_END >BODY JMP                ( Ignore F9-FF )
  372. END-CODE
  373.  
  374. (
  375. ***************************
  376. * Interrupt control words *
  377. ***************************
  378. )
  379.  
  380. ( save previous values and initialize IRQ2 interrupt vectors
  381. )
  382. : IRQ2_TRAP                ( --- )
  383.   ['] MPU_MSG >BODY DUP
  384.   MPU_VEC ! MPU_VEC_RST !
  385.   0 28 2@L  PREV_IRQ2 2!        ( save old IRQ2 vector )
  386.   ?CS: 0 2A !L                ( segment of handler )
  387.   ['] IRQ2_INT >BODY 0 28 !L            ( offset of handler )
  388. ;
  389. ( restore previous IRQ2 vectors
  390. )
  391. : IRQ2_REL                ( --- )
  392.   PREV_IRQ2 2@ 0 28 2!L
  393. ;
  394. ( enable interrupts on IRQ2
  395. )
  396. : IRQ2_ENABLE                ( --- )
  397.   21 PC@ 0FB AND 21 PC!         ( 8259 int mask IRQ2 )
  398. ;         
  399. ( disable IRQ2 interrupts
  400. )
  401. : IRQ2_DISABLE                ( --- )
  402.   21 PC@ 04 OR 21 PC!            ( mask IRQ2 interrupt )
  403. ;
  404. ( enable interrupts, set up vectors 
  405. )
  406. : IRQ2_ON                ( --- )
  407.   IRQ2_TRAP IRQ2_ENABLE 
  408. ;
  409. ( disable interrupts, release vectors 
  410. )
  411. : IRQ2_OFF                ( --- )
  412.   IRQ2_DISABLE    IRQ2_REL 
  413. ;
  414. (
  415. ************************
  416. * MPU401 control words *
  417. ************************
  418. )
  419.  
  420. : RECD+     22 !MPU_CMND ;        ( start record process )
  421. : RECD-     11 !MPU_CMND ;        ( stop record process )
  422. : PLAY+     0A !MPU_CMND ;        ( start playback process )
  423. : PLAY-     05 !MPU_CMND ;        ( stop playback process )
  424. : OVDB+     2A !MPU_CMND ;        ( start overdub process )
  425. : OVDB-     15 !MPU_CMND ;        ( stop overdub process )
  426. : MPU_RESET    FF !MPU_CMND ;        ( system reset )
  427. : THRU-     33 !MPU_CMND ;        ( disable MIDI thru function )
  428. : RT_OUT-    32 !MPU_CMND ;        ( disable MIDI real-time output ) 
  429. : T_BYTE+    34 !MPU_CMND ;        ( enable leading timing byte in
  430.                       stop mode )
  431. : RT_TO_HOST+    39 !MPU_CMND ;        ( enable real-time to host )
  432. : INT_CLK    80 !MPU_CMND ;        ( use internal clock )
  433. : FSK_CLK    81 !MPU_CMND ;        ( use FSK clock from tape )
  434. : MIDI_CLK    82 !MPU_CMND ;        ( use MIDI clock )
  435. : MET_ON    83 !MPU_CMND ;        ( metronome on )
  436. : MET_OFF    84 !MPU_CMND ;        ( metronome off )
  437. : MET_ON_ACC    85 !MPU_CMND ;        ( metronome on with accent )
  438. : BENDER-    86 !MPU_CMND ;        ( allow bender data )
  439. : BENDER+    87 !MPU_CMND ;        ( screen bender data )
  440. : MIDI_THRU-    88 !MPU_CMND ;        ( enable MIDI thru )
  441. : MIDI_THRU+    89 !MPU_CMND ;        ( disable MIDI thru )
  442. : DATA_IN_STP-    8A !MPU_CMND ;        ( disable data in stop mode )
  443. : DATA_IN_STP+    8B !MPU_CMND ;        ( enable data in stop mode )
  444. : MEAS_END-    8C !MPU_CMND ;        ( enable meas. end to host )
  445. : MEAS_END+    8D !MPU_CMND ;        ( disable meas. end to host )
  446. : COND-     8E !MPU_CMND ;        ( conductor off )
  447. : COND+     8F !MPU_CMND ;        ( conductor on )
  448. : RT_AFF-    90 !MPU_CMND ;        ( disable real time affection )
  449. : RT_AFF+    91 !MPU_CMND ;        ( enable real time affection )
  450. : FSK<INT    92 !MPU_CMND ;        ( sync FSK to internal clock )
  451. : FSK<MIDI    93 !MPU_CMND ;        ( sync FSK to MIDI clock )
  452. : CLK-        94 !MPU_CMND ;        ( disable clock to host )
  453. : CLK+        95 !MPU_CMND ;        ( enable clock to host )
  454. : SYSX-     96 !MPU_CMND ;        ( disable system exclusive data )
  455. : SYSX+     97 !MPU_CMND ;        ( enable system exclusive data )
  456. : TMPO_RST    B1 !MPU_CMND ;        ( reset relative tempo )
  457. : CLR_PLY_CTR    B8 !MPU_CMND ;        ( clear play counters )
  458. : CLR_PLY_TAB    B9 !MPU_CMND ;        ( clear play table )
  459. : CLR_REC_CTR    BA !MPU_CMND ;        ( clear record counter )
  460.  
  461. ( request to send MIDI data on specified track
  462. ) 
  463. : RTS_DATA                ( trk --- )
  464.   D0 + !MPU_CMND 
  465. ;
  466. ( request to send system exclusive message
  467. )
  468. : RTS_SYSX                ( --- )
  469.   DF !MPU_CMND 
  470. ;
  471. ( set tempo 
  472. )
  473. : SET_TEMPO                ( beats/min --- )
  474.   E0 !MPU_CMND !MPU_DATA 
  475. ;
  476. ( set relative tempo where 40H = 1/1 ratio
  477. )
  478. : REL_TEMPO                ( rel --- ) 
  479.   E1 !MPU_CMND !MPU_DATA 
  480. ;
  481. ( set rate of tempo change, 0 = immediate, 1 = slowest, FF = fastest
  482. )
  483. : GRADUATION                ( grad --- )
  484.   E2 !MPU_CMND !MPU_DATA 
  485. ;
  486. ( send clock to host every rate/4 internal clocks
  487. )
  488. : CLK>HST_RATE                ( rate    --- )
  489.   E7 !MPU_CMND !MPU_DATA 
  490. ;
  491. ( set active playback tracks using 8 bit map
  492. )
  493. : SET_AC_TRK                ( trks --- )
  494.   EC !MPU_CMND !MPU_DATA 
  495. ;
  496. ( send play counter of track when switched from playback to record mode
  497. )
  498. : SND_PLY_CTR+                ( trks --- )
  499.   ED  !MPU_CMND !MPU_DATA 
  500. ;
  501. ( initialize state of MPU_401 
  502. )
  503. : MPU_INIT                ( --- )
  504.   MPU_RESET                ( reset MPU-401 )
  505.   THRU- MIDI_THRU-            ( THRU off )
  506.   T_BYTE+                ( enable leading timing byte)
  507.   BENDER-                ( pitch bend data off )
  508.   DATA_IN_STP-                ( data in STOP off )
  509.   MEAS_END-                ( send measure end off )
  510.   RT_AFF-                ( real-time affection off )
  511.   SYSX-                 ( exclusive to host off )
  512.   CLK-                    ( clock to host off )
  513.   COND-                 ( conductor off )
  514.   60 CLK>HST_RATE            ( Set clock to host to MIDI )
  515.                     ( standard: 24 clks/beat )
  516.   64 SET_TEMPO                ( 100 beats per minute )
  517. ;
  518. ( enable interrupts and initialize MPU401
  519. )
  520. : MPU_ON                ( --- )
  521.   IRQ2_ON
  522.   MPU_INIT
  523. ;
  524. ( disable MPU401 activity
  525. )
  526. : MPU_OFF                ( --- )
  527.   IRQ2_OFF
  528. ;
  529. (
  530. *********************************
  531. * Record/playback control words *
  532. *********************************
  533. )
  534.  
  535. ( reset record pointer for track n
  536. )
  537. : RESET_RPTR                ( n --- )
  538.   2* T_RPTR + 0 SWAP !
  539. ;
  540. ( reset play pointer for track n
  541. )
  542. : RESET_PPTR                ( n --- )
  543.   2* T_PPTR + 0 SWAP !
  544. ;
  545. ( intialize state of record/playback variables and obtain memory 
  546.   for record/play data buffers 
  547. )
  548. : RECORD_INIT                ( --- )
  549.   FREE_MEM DROP
  550.   T_SIZE PGPH_SIZE / N_TK *        ( --- n_required_pgphs )
  551.   GET_MEM                ( --- seg n_avail_pgphs err_code )
  552.   0<> IF
  553.     2DROP
  554.     ." Not enough memory for record/playback " CR 
  555.     EXIT
  556.   THEN
  557.   DROP                    ( --- seg )
  558.   T_SIZE PGPH_SIZE /            ( --- seg pgphs/trk )
  559.   N_TK 0 DO                ( set up pointers to track buffers )
  560.     2DUP I * +
  561.     T_SEG I 2 * + !
  562.   LOOP
  563.   2DROP
  564.   N_TK 0 DO                ( reset record/playback pointers )
  565.     I RESET_PPTR
  566.     I RESET_RPTR
  567.   LOOP
  568. ;
  569. ( record MIDI data on trk n
  570. )
  571. : RECORD                ( n --- )
  572.   7 AND REC_TRK !            ( set record track )
  573.   REC_TRK @ RESET_RPTR            ( reset record pointer)
  574.   RECD+                 ( Start record )
  575. ;
  576. : RECORD_OFF    
  577.   RECD-
  578. ;
  579. ( overdub MIDI data on trk n while playing other tracks
  580. )
  581. : OVERDUB                ( n --- )
  582.   7 AND REC_TRK !            ( set record track )
  583.   1 REC_TRK @ SHIFT NOT 
  584.   SET_AC_TRK                ( all trks active except REC_TRK )
  585.   CLR_PLY_CTR                ( clear play counters )
  586.   REC_TRK @ RESET_RPTR            ( reset record pointer)
  587.   N_TK 0 DO                ( reset play pointers )
  588.     I RESET_PPTR
  589.   LOOP
  590.   OVDB+                 ( Start record )
  591. ;
  592. : OVERDUB_OFF    
  593.   OVDB- 
  594. ;
  595. ( play midi data for all tracks
  596. )
  597. : PLAY                    ( --- )
  598.   N_TK 0 DO                ( reset play pointers )
  599.     I RESET_PPTR
  600.   LOOP
  601.   FF SET_AC_TRK             ( all trks active )
  602.   CLR_PLY_CTR
  603.   PLAY+                 ( start play )
  604. ;
  605. : PLAY_OFF
  606.   PLAY- 
  607. ;
  608.  
  609. DECIMAL
  610.